/* OUTPUT TO c:\aaaa\CHECK_ptp.txt. */

FOR EACH pt_mstr NO-LOCK WHERE  pt_status BEGINS "" :
    FIND FIRST ptp_det WHERE ptp_part = pt_part NO-LOCK NO-ERROR.
    IF NOT AVAILABLE ptp_det THEN
    DISP pt_part pt_status pt_pm_code pt_part_type pt_added pt_userid pt_desc1
        WITH STREAM-IO WIDTH 200.
END.
